Olvasom az újságot. Az újságban 

pedig megírták, hogy rövidesen 

újabb kísérletet kezdenek 

Magyarországon. A kísérletre 

kiszemelt városka Eger. A kísérlet 

tárgya pedig a mikroelektronika 

nem is olyan új vívmánya, az in- 

formációt tároló hitelkártya, 

amellyel odamehet tulajdonosa 

az utcán felszerelt automatához, 

s bármely napszakban pénzt 

vehet ki számlájáról, s amellyel 

lehetőség szerint minél több 

helyen - üzletben, étteremben, 

OTP-fiókban - fizethet is. A hír 

voltaképpen örvendetes, hiszen 

arról tanúskodik, hogy a technika 

eme áldásos vívmánya lassanként ; 

hozzánk is betör. Elmaradásunk 

a területen nem nagyobb, mint 

sok másban. Nyugaton turistás- 

kodó honfitársaink látásból már 

jól ismerik ezt a technikai 

vívmányt, hiszen sok éve, hogy 

először csodálhatták meg az 

efféle automatákat Jugoszláviá- 

tól Amerikáig. 

A hírnek azt a részét nem értem 

csupán, hogy mi ebben a kísérlet. 

Hiszen egy sokszor és sok helyen 

kipróbált dologról van szó. 

A rendszer működőképes, bevált, 

bizonyíték éppen elég akad rá. 

Pénzünk arra, hogy bevezessük az egész országban nyilván 
annál kevesebb. Ez idáig világos. Igény a bevezetésére min 
mális. Legalábbis erre kell következtetnünk abból, hogy az 
OTP-takarékcsekk nevű , műintézmény" iránt sem egetverő 
az érdeklődés. Márpedig e pillanatban ez az egyetlen olyan 
fizetőeszköz kis hazánkban, amely bárki számára hozzáfér- 
hető úgynevezett pénzkímélő lehetőség. E sorok írója mint 
a modern dolgok iránt beoltott érdeklődő kipróbálta már ezt 
a csekket. S ily módon megmondhatója, hogy az állampolgá- 
rok érdektelensége egyszerű okkal magyarázható. Azzal 
ugyanis, hogy az OTP-takarékcsekk csak arra jó, hogy gaz- 
dáját is, embertársait is fölbosszantsa. Áll azember a harminc- 
méteres sorban például a Skála élelmiszer osztályának pénz- 
táránál. Sorra kerül. A számla 1200 forintot mutat. Az ember 
előveszi csekkfüzetét, kitölt egy csekket. Előhalássza a sze- 
mélyijét, s odaadja a pénztárosnak. A pénztáros megkövülten 
bámul az emberre. Némi habozás után segítségért kiált. 
Gizike, az ügyeletes üzletvezető 2-3 perc után előkerül. Ő már 
tudja, hogy miről van szó, hát elmagyarázza a pénztárosnő- 
nek. Valami nyomtatvány kerül elő, ezt kitöltik..." És ez így 


megy kb. 3-4 percig. Közben 

a mögöttem álló sorban állókat 

megüti a guta. Nekem meg 

égjen le a pofámról a bőr, 

hogy egyáltalán ilyesmit 

merészelek. 

Hát így. Így megy abban a kevés 

üzletben, ahol egyáltalán 

elfogadják a csekket. Mert a 

legtöbb helyen el sem fogadják. 

Így azután az állampolgár 

ij enyhén szólva idegenkedik 

a modern kor eme vívmányaitól. 

Nem csoda tehát ha kísérle- 

tezünk. Kísérletezünk olyan 

dolgokkal, amelyek sokszorosan 

ki vannak találva. Nem nehéz 

megjósolni az egri kísérlet 

eredményét. A bátor, vállalkozó 

kedvű egriek (minthogy szülő - 

városomról van szó — különösen 

szurkolok nekik) közül néhány 

ezren nyilván élnek majd 

a felkínált lehetőséggel. 

Kiváltják kis kártyájukat, 

s néhány hónap múltán megüti 

őket a guta. Kártyájuk 

ugyanis csak bonyodalmat 

okoz majd nekik. Lesznek 

azután a városban , esetek". 

Nyilván lesznek vandál elemek, 

akik némi készpénz reményében 

megpróbálnak fölfeszíteni, 

szétverni egy-egy automatát. Eredményük csak annyi lesz, 

hogy néhány hétre elromlik a szerkezet. Cikkek jelen- 

nek majd meg a Heves megyei Népújságban, amelyekben 

jól leteremtik az egri népet, hogy nem elég érett még egy 

ilyen kísérletre. Ellencikkek is születnek majd, amelyek meg- 

írják, hogy nem a nép, hanem a technika, meg az egész 

infrastruktúra a hibás. Én már előre ezeknek az ellencikkeknek 

a szerzőivel értek egyet. Úgy gondolom ugyanis, hogy nem 

kísérletezni kellene, hanem a bevált receptek szerint föl 

kellene építeni egy rendszert. Olyat, amelyről bebizonyoso- 

dott, hogy működik. Ez az egész ugyanis akkor ér valamit, 

ha minél szélesebb körben használhatja tulajdonosa a kár- 

tyát. Az automata szétverések, feszegetések pedig technikai- 

lag fejlettebb országokban sem számítottak ritkaságnak — 
eleinte. Azután ezeket a berendezéseket is megszokták. 

És ez lenne a lényeg. Megszokni, hétköznapivá tenni az új 

technika áldásait. Ami működik, abban ugyanis bíznak az 

emberek. Tessék például a kerékre gondolni. Vagy lehet, 

hogy nálunk azt is először kísérleti jelleggel vezették be? 
Angyalosi László 


0 Hiroldal — amelyben a teszteredmények szerinti leggyorsabb PC-t mutatjuk be. 
4) Memóriafelosztás az Enterprise-on — ismét megpróbálunk egy szeletet pótolni az eltitkolt információkból. 
6) Wéhány kiegészítés a gépkönyvhöz — mert az Enterprise könyve nem éppen bőbeszédű !. 
B Bruttósító ismét — mert kiderült, hogy ez a probléma nem is olyan kis probléma. 
6 Ördögi - dolog történt a két hónapja közölt TVC DISASSEMBLER-rel. 
A lista egy része eltűnt a nyomdai homályban. Ezért megismételjük. 


0 Könyvmoly — Egy kis grafika — a rovat szokatlan terjedelemben és szokatlan tartalommal jelentkezik. 


Egy könyv kapcsán belemerülünk a rajzolgatásba. 


B Atari kör — programozható funkcióbillentyűk — egy program, amely azt tudja amit a címe mond. 
€) 8BIT-LET Karácsony — megismételjük a felhívást, s várjuk olvasóinkat! 


0 Sorvezető — Lesz-e valaha is rend? — a kérdés költői, a sorbarendező program amely érkezett a rovatvezetőhöz 
— viszont érdekes. Ami minderről neki eszébe jutott, még érdekesebb. . . 


0 Nyerő - Itt is szerepelt a rendezés, így egy másik programot is közlünk. valamint a sorsolás helyét, idejét. 
8 Enterprise nyerő — a második feladat megoldásával, a negyedik feladattal, s az Atari nyerő sorsolásának kitűzésével 


o 
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ket 


MEMÓRIA 
FELOSZTÁS 


LTERPRISE 


Az ENTERPRISE számítógép 128 
Kbyte RAM-mal és 32—32 Kbyte belső, 
ill. külső ROM-mal rendelkezik. A gép 
7-80 típusú mikroprocesszora azon- 
ban csak 64 K memóriát tud közvet- 
lenül megcímezni. A tervezők ezt egy 
ún. lapozó logika beépítésével oldot- 
ták meg, amely a külső fizikai memó- 
riát (ez max. 4 Mbyte lehet) és a 
27-80 64 K logikai (látszólagos) me- 
móriáját egyaránt 16 Kbyte-os ún. 
lapokra osztották fel. A 2-80 P 4 db 
logikai lapjának brmelyikéhez  hoz- 
zárendelhetjük a max. 256 fizikai me- 
mória lap bármelyikét. A hozzáren- 
delést 4 regiszterrel végezzük el, amely 
perifériaként lett kialakítva. 


A kiosztást 
az alábbi ábra mutatja: 


22-80 cím Port cím 

I! 0000—3FFF 176-—BOH 
1 4000—7FFF 177-B1H 
1! 8000—BFFF 178-B2H 
íV C000—FFFF 179-B3H 


A portok írhatók és olvashatók is. 
A fizikai memória felosztása: 


Lapszám Tartalom 
248—255 RAM 
0és2 Beépített 32K 
1 és 3 ROM 
4 és 6 Külső 32K 
5 és57 ROM 


A rendszerváltozókat a program a 
255. lapon helyezi el, a BASIC prog- 
ramot a 248. laptól kezdi elhelyezni. 
A 248. lapon van a megszakításrutin, 
valamint az RST 30 rutin belépési 
pontja, tehát ez a lab van a 7-80 I. 
lapján. 


A billentyűzet 

Sokszor szükség lehet arra, hogy több 
billentyű egyszerre történő lenyomá- 
sát figyeljük, ill. gépi kódból olvassuk 
le a billentyűzetet. A billentyűzetet a 
gépen szokás szerint mátrixba kötöt- 
ték. A mátrix leolvasása a 181. I/O 
porton keresztül történik. Először ki 
kell adni a 181. portra a leolvasni 
kívánt sor számát, majd ugyanezen 
a porton leolvashatjuk az adott sor- 
ban levő billentyű állapotát. Egy bil- 
lentyű lenyomása esetén a hozzá tar- 
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tozó bit 0 lesz. Ha BASIC-ből akarjuk 
leolvasni, akkor egyszerűbb mód is 
van, a megszakításrutin ugyanis leol- 
vassa a billentyűt, és a leolvasott ér- 
tékeket tárolja a memóriában. Itt azon- 
ban egy billentyű lenyomását a meg- 
felelő bit 1-be váltása jelzi, mert a 
leolvasó rutin negálja a leolvasott ér- 
téket. 

A memória kiolvasásakor többször le 
kell olvasni a billentyűzetet, mert a 
megszakításrutin nemcsak beolvassa, 
hanem törli is az adatokat, valamint 
az önmagukban az editor számára ér- 


A mátrix felépítése: 


Memóriaciím 


téktelen (CTRL, SHIFT stb.) billen- 
tyűket nem tudjuk így leolvasni. 

A sorszám kiküldésekor vigyázni kell, 
mert a 7. bit a REM2, a 6. pedig a 
REM1 vezérlője: ha a bit 1, akkor a 
kimenet aktív. (A vezérlő jelet azon- 
ban a megszakításrutin is kiküldi, te- 
hát ha nincs letiltva a megszakítás, 
akkor nem érdemes itt próbálkozni.) 
Az ENTERPRISE számítógép legfelső 
képernyősora egy ún. STATUS sor, 
amely a program pillanatnyi állapo- 
tára vonatkozó adatokat tartalmazza. 
BASIC-ből ezt a sort csak ki, ill. 


Sor- BITEK 

szám: (255.lap) 0. 1. össz iö HE 5. 6. T; 

0. 15638 N B c v x r 4 bal SHIFT 
15639 H LOCKG D F s A CTRL 

2 15640 u a Yes R í§; E w TAB 

3. 15641 7 1 6 4 5 3 2 ESC 

4. 15642 F4 F8 F3 F6 F5 F7 F2 F1 

5. 15643 8 9 9 - o ERASE 

6. 15644 5 K H L 

ző 15645 STOP - HOLD ENT ALT 

8 15646 M DEL . / . jobbs 4 SPC INS 

9 15647 1 o e Pp 

A sorszámot kell kiküldeni a 181-es portra. 


19 PROGRAM DEMO PRGM 
199 ALLOCATE 1989 


119 CODE ST-HEX$("8E,81,F3,CB,43 , CB , 93 , CB , 93 , ED , 59 , CB , AB , CB , B , 
CB, OB, 1C , 3E , 93 , D3 , B5 , DB , B5 , E6 , 88 , 96 , B, 10 ,FE,0,9,29,E1,FB,C9g") 


1980 DEF STATUS(A$) 
290 FOR I-1 TO LEN(A$) 
219 
229 
2309 
1990 
1910 
1920 
1930 
1940 


NEXT I 
END DEF 
REM Foprogram 
LET X$-" 
OUT 191,2 
REM 
SET VIDEO Y 24 
1945 SET VIDEO MODE 1 
1959 SET VIDEO COLOR 8 
1955 OPEN $1g:"video:" 
1969 SET HIG:PALETTE BLACK,WHITE 
1965 SET HI1g:INK 1 
1979 DISPLAY H1IYG:FROM 1 TO 24 AT 


Szabo Lajos Kecskemet 


Grafikus lap letrehozasa 


SPOKE 255,169554I,ORD(A$(I)) 


":CALL STATUS(X$) 


1 


1299 PLOT $19:6,0G;1279,9;1279 ,863;9,863;9, 0; 
1219 PRINT HIg,AT 19,19:"A teljes kep grafikus" 


1229 WAIT 3 

1309 LET A$-" STOP : 
1316 CALL STATUS(A$) 
1320 LET A-USR(ST,9) 
1330 LET X$-" 
1346 DISPLAY TEXT 
1350 END 


":CALL STATUS(X$):! 6. kar. 


ESCAPE billentyu 


torlese 


A gépi kódú rutin assembler listájas 


START 09E,81 


LD C,B1 
DI 

RLC 
RLC 
RLC 
OUT 
RRC 
RRC 

INC 

LD A,3 


LO0P 


iz A BORDER portja 


; A léptetésekre 
3; A színek 

z; sorrendje miatt 
jz van szükség 


köv. szín 


3. bill. sor 


OUT (B5) A 


IN A, (B3) 


AND 89 
LD B,OB 


DJNZ DEL 


NOP 
NOP 


JR NZ, LOOP 


ET 
RET 


bekapcsolni tudjuk. Egy kis munká- 
val azonban mi is tudunk ide Írni. 
A sortartalmát a 255.lap 16056-16096 
memória tartalmazza. Ha ide megfe- 
lelő értéket POKE-olunk be, átírhat- 
juk a sor tartalmát. 


bill. leolv. 
csak az ESC. 
bill. 
időzítés 


Ha nem ESC 
akkor ugrás 


Azonban: az editorba való visz- 
szatérés átírja a sort a 6. karakter ki- 
vételével, valamint a  megszakítás- 
rutin az első 5 karaktert használja, 
BASIC programból tehát az első 5 
karaktert ne használjuk. 


KIEGÉSZÍTÉS 


A -SET BORDER n utasítás csak a 
27-es rendszerváltozót (BORD VID) 
változtatja meg, a keretszínt a meg- 
szakításrutin állítja át a soron követ- 
kező lefutása során. A 129. portra egy 
új keretszínt kiküldve, az azonnal meg- 
jelenik a képernyőn, de ha a BORD 
VID rendszerváltozót nem írjuk át, a 
megszakításrutin természetesen visz- 
szaállítja az eredeti keretszínt. Így 
érdekes hatások hozhatók létre, gépi 
kódból teljesen kihasználhatjuk a le- 
hetőséget. 

A felhasználói kézikönyvben a függő- 
leges felbontás maximumát 720 pont- 
ban határozzák meg. Ez így van, ha a 
grafikus képernyőt GRAPHICS uta- 
sítással hozzuk létre. Ha azonban 
OPEN-nel megnyitunk egy grafikus 
csatornát és a lap mérete függőlege- 
sen 24 karakterre van állítva (SET 
VIDEO Y 24) valamint az ablakot is 
24 karakterre definiáljuk (DISPLAY 
csat.: FROM 1 TO 24 AT 1) akkor a 
függőleges felbontás 864 pont. 

A programban példa található a na- 
gyobb függőleges felbontásra, a 
STATUS sor írására, a BORDER színe- 
zésére és gépi kódból történő billen- 
tyűzet leolvasására. Egyébként a prog- 
ramból látható, hogy milyen strukturált 
programokat lehet előállítani a gép 
BASIC-jével. (Akik még nem talál- 
koztak a géppel, azoknak elmondom, 
hogy a lista tördelését a gép automa- 
tikusan végzi el, a lista azonos a képer- 
nyőn megjelenővel.) 

A 191. port 1. bitjével megváltoztat- 
hatjuk a billentyűhangot. 

Próbáljuk ki: OUT 191.,2 


Szabó Lajos 


Nem célom a gépkönyv részletes bírála- 
ta, ahhoz ugyanis a lap terjedelme túl- 
ságosan kicsiny. Sajnos, amellett, hogy 
rendkívül kevés információt ad a gya- 
korlottabb felhasználónak, igen durva 
sajtóhibákkal keseríti meg a gyanútlan 
kezdő életét is (már persze a gépkönyv). 
1. Az INPUT utasításban, ha a kérdőjel 
helyett szöveget akarunk megjeleníteni, 
természetesen a PROMPT kulcsszót 
kell alkalmaznunk, nem pedig a könyv- 
ben többször is (és mindannyiszor hi- 
básan) szereplő PROMT-ot. Hibás tehát 
a 18. oldalon kezdődő első példaprog- 
ram hat helyen, a második két helyen, a 
26. oldal programja két helyen, a 27. 
oldal szövege három helyen... 

II. A POS(x$,v$) és a POS (x$,y$.n) 
belső függvények a felhozott példákkal 
együtt hibásak. Helyesen a POS(x$, 
v6) az y$ szövegrészlet első előfordu- 
lását adja meg az x- szövegben, éppen 
fordítva, mint. a leírásban szerepel. 
Ugyanez igaz a POS(x$, y$. n)-re is. 
A példák helyesen :. 

POS(. LONDON", . , ON") —2, és 
POS(. LONDON", , ON", 4)—5 


III. Kimaradt két (bár nem túl jelentős) 
belső változó a felsorolásból: 
VERNUM értéke a verziószám, azaz 2.1 


VERS , Enterprise 1S-BASIC version 
2.1 c 1985 Intelligent Software Ltd" 
Van még a könyvben sajtóhiba bőven, 
de azok nem ilyen súlyosak, így a fent 
említettek miatt nem sorolom fel őket. 
Végezetül az általam ismert speciális 
karakterkódokat adom meg, amelyek 
nagyon jól használhatók programból a 
képernyőtartalom formázására és moz- 
gatására: 

24 a bal margót a kurzor oszlopába 
állítja 

25 töröl a sor végéig (mint a Shift- 
Delete) 

26 törli a képernyőt 


160 
161 
162 
163 
164 
165 
166 
167 


Delete 
Shift-- Delete 
Ctrl -- Delete 
Alt-- Delete 
Erase 
Shift-4-Erase 
Ctrl-4-Erase 
Alt--Erase 


168 insert 

169 Shift--insert 
170 Ctrl--Insert 
171 Alt--Iinsert 


176-tól 191-ig találhatók 
a kurzormozgató kódok: 


176 föl 177 Sh--föl 
178 Ct--föl 179 AI--föl 
180 le 181 Sh--le 
182 Ct--le 183 Al--te 
184 balra 185 Sh--balra 
186 Ct--balra 187 AI-4-balra 
188 jobbra 189 Sh--jobbra 
190 Ct-jobbra 191 AI--jobbra 
240 Ctrl--F1 241 Ctrl--F2 
242 Ctrl--F3 243 Ctrl--F4 
244 Ctrl--F5 245 Ctrl-4-F6 
246 Ctrl-4-F7 247 Ctrl--F8 
248 Alt-3-F1 249 Alt3-F2 
250 Alt--F3 251 Alt--F4 
252 Alt--F5 253 Alt3-F6 
254 Alt-3-F7 255 Alt--F8 


Mészáros Gyula 
1029 Bp Zsíroshegyi út 110. 
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Előző számunkban 
közöltürnik egy"Bruttó- 
sító programot. 
Amikor a kéziratot és 
a programlistát nyom- 
dába adtuk, még 
meglehetős bizonyta- 
lanság uralkodott a 
személyi jövedelem- 
adó ügyében, így több 
sajtóközleményben 

is hibásan jelentek 
meg az adatok. Már- 
pedig a program e 
közlemények alapján 
készült. Nem véletlen 
tehát, hogy hibák 
kerültek bele. Ezúttal 
nem programozási, 
Htiánem számszaki 
jellegűek. 
Tévedéseinkre Vigh 
György hívta fel 
figyelmünket — segít- 
ségét ezúton is kö- 
szönjük. Olvasóinktól 
pedig elnézést kérünk. 
A közölt program 
legnagyobb hibája, — 
hogy nem a jelenlegi 
nettó keresetből in- 
dul ki a számolásnál. 
Másrészt pedig 
feltételes utasításba 

a jövedelemadó sáv- 
határok kerültek, 
holott ehelyett a jö- 
vedelemadó-sávokhoz 
tartozó nettó kereset- 
határokat kellett 
volna figyelembe 
venni! 

(Aki nem érti ezt a 
mondatot, ne csüg- 
gedjen. Más dolog 
programot írni és más 
dolog az adózási 
számügyekben eliga- 
zodni. Mi sem értjük 
még pontosan, de 
abban végre biztosak 
vagyunk, hogy ez a 
program valóban azt 
számolja ki, amit kell!) 
Ezeket a hivatalosan 
megállapított érté- 
keket egyébként sok 
lap leközölte, többek 
közt a 42-es Magyar 
Közlöny, s ezek az 
értékek vannak most 
már a programban. 


A 


rem ttt bruttositas titi 
print chr$(147) 


ZNI 
print:print:print 
print"mi a feladat ?" 


print"1 - szamolas havi atlagbol" 
print"2 - szamolas eves osszegbol" 
print"3 - szamolas havi keresetekbol" 
print:print 

input g 

ifgsiíthengoto240 

ifgs2thengoto189 

ifg-3thengoto149 

goto2zg 

ysO:nsOs:foriszítollz:printi; 

input". havi brutto kereset";g:ysyta 
input"nyugdi jjarulek"3g:nsntg 
nexti:xzy-n: goto429 

rem ttt szamolas eves osszegbol dtitit 
print chr$(147) 

input" jelenlegi eves brutto kereset";y 
input" jelenlegi eves nyugdijjarulek"3zn 
xzy-n 

goto429 

rem ttt szamolas havi atlagbol tti 
printchr$(147) 

input" jelenlegi havi brutto kereset";y 
rem ttt jelenlegi nyugdij-kulcs 4titit 
n:0.03 

ify2.2109g thenn:0.04 

ify226gBg therin:0.05 

ify23399 thenn:0.06 

iífy24309 thenn:B.07 

ify25399 thenn-8.08 

ify26G39gg thenn:Xg.0g97 

ify27300 thenn-0.11 

ify28B509 thenn:0.12 
ify219g399thenn:0g. 13 
ify212390thenn:0g. 14 
ify2143g0thenn-0. 15 


xzy-int(ntyt.5S):ysyti2Ziprint"havi nettost"3zx 
xzxtt12 

rem t4ttt adokulcs dtititit 

ifx2B thena-0g :c-B :saz0 
ifx2549099 thena:g.2 :c-0 1: sa:489090 
ifx26949090 thena-g.25:c-4499  :sa-79000 
ifx282499 thena-g.3 :c-9499  :saz99999 


ifx2X199490thena-g.35:c5-18499 :sazr129390 
ifx2116990thena-0. 39: c-28990 :sa-159990 
ifx)1322990thena-0. 44:c-49609 :sa-189990 
ifx21598990thena-g. 48: c-67099 : sa-2499090 
ifx)219290thena-B. 52: c5124600: sa—360900 
ifx23901400thena-0. 56: c—249400: sa—609900 
ifx2369400thena-0.6 :c-361490: sa-a990000 
rem ttt bruttositas titi 
b5s(xtc-(sat12990) ta) / (0.9-a) 

print"uj eves brutto kerese 
print"uj havi brutto kereset: 
gotozO 


sb 
jb/12 


szerkesztő azért van, 


hogy a lap olyan legyen. 


amilyenek az olvasói! 


SZÁMÍTÁSTECHNIKAI MELLÉKLET-1987 NOVÉMBER 


Szeretnénk megnyugtatni tisztelt TVC- 
tulajdonos olvasóinkat, hogy a hiba 
nem bennük van. Szeptemberi számunk- 
ban közöltük ugyanis a TVC DISAS- 
SEMBLER programot, amelyet sokan 
megpróbáltak beírni, de már az első 
soroknál elakadtak. A listákba ugyanis 
olyan kapitális méretű baromságok ke- 
rültek, amiket még az 5 évesek sem 
esznek meg. (Például: RETUR, vagy ON 
NY GOTO 3850340.) Nos a dolog -— már- 
mint, hogy jelenhetett meg ilyen hibás 
lista — annyira .érdekes, s ráadásul 
technikai vonatkozású, hogy megér egy 
pár sort. 

A lista amelyet nyomdába adtunk - ter- 
mészetesen jó. (Reméljük, hogy hibát- 
tan.) A figyelmes szemlélő észreveheti, 
hogy mindkét lista középső része hiány- 
zik. Mintha valaki hosszában kettévágta 
volna a listákat, s kiemelt volna belőle 
egy darabot. Nos, a hiba elektronikus 
sjellegű". A lapot előkészítő Zrínyi 
Nyomdában a fekete-fehér képék, raj- 
zok, s így a programlisták filmjét egy 
elektronikus Scanner nevű berendezés- 
sel készítik. A Scanner, úgy tűnik, időn- 
ként hibázik. (Mint megtudtuk, nem ez 
volt az első eset, csak nekünk még nem 
volt hozzá szerencsénk.) A hiba ered- 
ménye, hogy a filmkészítésnél , ugrik"" 
a gép, és így a fotózandó kép egy sávja 
kimarad. Az eredmény meggyőző. Nyil- 
ván egy fotónál észrevehető a dolog, 
egy programlistánál ránézésre nem lát- 
szik. (Mi is csak a megjelenés után egy 
héttel érkező első reklamáló levél hatá- 
sára döbbentünk rá, hogy valami nem 
stimmel.) Úgy látszik, a berendezés 
öregszik, mert ha jól megnézik, ugyan- 
ebben a lapszámban a 20. oldalon az 
Enterprise-ról készült rajzban is van 
egy kis , folytonossági hiány". Ennek 
oka ugyanaz, mint a  programlista 
hiányosságáé. 

Ha nem computeres lap lennénk, bízvást 
mondhatnánk, hogy ,, így bízzon az em- 
ber a modern technikában". Ezzel azon- 
ban magunk alatt vágnánk a fát, így 
hát csak azt mondjuk: íme, a magyar 
technológiai színvonal. 

Gondolkodtunk, hogy a program iránt 
érdeklődő olvasóink kielégítésére csak 
a program közepét közöljük újra, de 
azután fölrémlettek előttünk a sötét 
utcasarkon ránk váró tévécések kezében 
lévő husángok, s ezért az egész program 
újraközlése mellett döntöttünk. Elné- 
zést pedig ezúttal nem a magunk nevé- 
ben kérünk, hiszen nem mi hibáztunk. 
SCANNER SORRY! 


e 


ÖRD 


3010 GRAPHICS 4 5290 
3020 SET PALETTE 81,0,65,20;BORDER 17 5300 
3030 TINTA-1:PAPIR-0 5310 
3040 SET INK TINTA;PAPER 3 5320 
3050 PRINT AT 1,3:STRING$(28,126) 5330 
3060 PRINT AT 2,3:"k TVC 2-80 DISASM (C) Sz.J£" 5340 
070 PRINT AT 3,3:STRING$(28,126) 5350 
080 SET PAPER PAPIR 5360 
3090 PLOT 32,662;991,662,32,658;991,658 5370 
J100 PC-O:PAGING-112:NY-1:MOD-1 5380 
1110 GOSUB 6150:GOSUB 6170 5390 
1120 GOSUB 6190:GOSUB 6230 5400 
1130 GOSUB 6050 5410 
1140 DIM OP$(39)t8,V$t45,9$t32,91$r32 5420 
3150 LEPES$-"DANP WBBTT":M-1 5430 
3160 GET X$ 5440 
3170 TO LEN(LEPES$) 5450 
3180 EPES$(I) THEN M-I:GOTO 3200 5460 
3190 NEXT I:M-MOD 5470 
3200 ON M GOSUB 3590 ,3570,3500,3540,3510, 3700 , 3760 , 3780 , 3860 , 3880 5480 
3210 GOTO 3160 5490 
3500 NY-((NY-1) XOR 1)41:GOTO 6200 5500 
3510 ON NY GOTO 3530,3520 5510 
3520 LPRINT 5520 
3530 PRINT AT 9,1:CHR$(25) : RETURN 5530 
3540 PRINT AT 7,19 INPUT PROMPT "Paging-":€1$:A1$-RI$( :2) 6000 
3550 GOSUB 6110:PAGING-G1:GOSUB 6090:GOSUB 6180 6010 
3560 PRINT AT 7,19:STRING$( 12, 32) : RETURN 6020 
3570 PRINT AT 7,19:"";:INPUT PROMPT "Address-z":A$:A$-A$(:4) 6030 
3580 GOSUB 6130:PC-A:GOSUB 6160:GOTO 3560 6040 
3590 MOD-M:GOSUB 6230:P. C-PC:GOSUB 5000:GOSUB 3530:GOSUB 6330 6050 
3600 PC-PCHLFINT(A/140)4INT((A-INT(A/140)140)/35) 6060 
3610 FOR I-P C TO PC 6070 
3620 CIM-I:GOSUB 6070:WIZADAT:GOSUB 6010:V$(742x(I-P.C):8B42x(I-P C))-W1$ — 6080 
3630 GOSUB 6290:V$(174I-P C)-CHR$(ADAT) 6090 
3640 NEXT I 6100 
3650 ON NY GOTO 3670,3660 6110 
3660 LPRINT V$ 6120 
3670 PRINT V$(:5)8V$(7:15)8V$(27:42) 6130 
3680 PC-PC41:GOSUB 6160 6140 
3690 RETURN 6150 
3700 MOD-M:GOSUB 6230 6160 
3710 GOSUB 6340 6170 
3720 W-PC:GOSUB 6030:V$ 6180 
3730 CIM-PC:GOSUB 6070: 6190 
3740 CIM-PC$r1:GOSUB 6070:W-W4256XADAT:GOSUB 6030:V$(32:35)-W$ 6200 
3750 V$(27:28)-"DW":P. C-PC:PC-PCr1:GOSUB 3530:GOSUB 6330:GOTO 3610 6210 
3760 MOD-M$1:GOSUB 6230 6220 
3770 GOSUB 6310:X-INT(X):IF Xc1 OR X512 THEN 3770 6230 
3780 PRINT AT 4,18:"";:PRINT USING "tt":X:GOSUB 6340:FOR I-1 TO X 6240 
3790 CIM-PC4I-1:GOSUB 6070:W1-ADAT:GOSUB 6010 6250 
3800 V$(642k(I-1):742£(I-1))-W1$ 6260 
3810 NEXT I 6270 
3820 W-PC:GOSUB 6030:V$(:4)-W$:PC-PCLX:GOSUB 6160:GOSUB 3530 6280 
3830 GOSUB 6330:ON NY GOTO 3850,3840 6290 
3840 LPRINT V$ 6300 
3850 PRINT V$(:30):RETURN 6310 
3860 MOD-M:t1:GOSUB 6230 6320 
3870 GOSUB 6310:X-INT(X):IF Xc1 OR X524 THEN 3870 6330 
3880 GOSUB 6340:PRINT AT 4,18:"";:PRINT USING "4" :X 6340 
3890 FOR I-1 TO X 8000 
3900 CIM-PC4I-1:GOSUB 6070:GOSUB 6290:V$(51I)-CHR$(ADAT) 8010 
3910 NEXT I:GOSUB 3530:W-PC:GOSUB 6030:V$(:4)-W$:PC-PCrX 8100 
3920 ON NY GOTO 3940,3930 8110 
930 LPRINT V$ 8120 
940 GOSUB 6330:PRINT V$(:30) 8130 
3950 GOTO 6160 8140 
5000 RESTORE 8000:FOR I-1 TO 39:READ OP$(I):NEXT I 8150 
5010 D- :GOSUB 6340 8160 
5020 CIM-PC:GOSUB 6070:X-ADAT:W-PC:GOSUB 6030:V$(:4)-W$ 8170 
5030 CIM-PCtL41:GOSUB 6070:W1-ADAT:GOSUB 6010:0P$(21)-W1$ 0260 
040 OP$(17)(2:3)-OP$(21) 8210 
050 CIM-PC41 :W-PC424ADAT4256:( ADAT: 127 ) :GOSUB 6030 8220 
5060 OP$(19)-! JOSUB 6070:W-256$ADAT 8230 
5070 CIM-PCt41:GOSUB 607 H-ADAT:GOSUB 6030:O0P$(20)-W$ 8240 
5080 OP$(18)(2:5)-W$:IF D-1 THEN 5330 8250 
5090 ON X/6441 GOTO 5100,5200,5110,5120 8260 
5100 RESTORE 8100:GOTO 5130 8270 
5110 RESTORE 8200:GOTO 5130 8300 
5120 RESTORE 8300 8310 
5130 FOR I-0 TO X AND 63:READ A,B:NEXT I 8320 
5140 IF AtB-O THEN 5230 8330 
5145 RESTORE 8400:IF (X AND 7)-7 THEN W1-(X AND 56):GOSUB 6010:OP$(17)-W1$ 8340 
5150 C-A-35£INT(A/35):FOR I-1 TO C:READ C$:NEXT I 8350 
5160 et $£STRING$(5-LEN(C$) , 32) :V$(27:31)-C$ 8360 
5170 C-B-40£INT(B/40):IF C-0 THEN RETURN 8370 
5180 X$-OP$(C):C-INT(B/40):IF Cc50 THEN X$-X$4" , "£OP$(C) 8400 
5190 -X$£STRING$( 12-LEN(X$) , 32) : RETURN 8410 
5200 18 THEN V$(27:30)-"HALT" : RETURN 8420 
5210 8)-"LD":X$-OP$((X AND 56)/841)á","8OP$((X AND 7)11) 8500 
5220 8510 
5230 8520 
5240 8530 
5250 :OP$(38)-"(IX)" 8540 
5260 Y":0P$(38)-"(IY)" 8550 
5270 CIM-PCt2:GOSUB 6070:O0P$(7)(4)-CHR$(43-24(ADAT5127)) 8600 
5280 W1-(ADAT:127)256-ADAT:W1-ABS(W1) :GOSUB 6010 8700 
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OP$(7)(5:6)-W1$:L-1:PC-PC$r1:CIM-PC:GOSUB 6070 
X-ADAT:GOTO 5030 
PC-PCt1:CIM-PC:GOSUB 6070 
OP$(11)-"HL":OP$(7)-"(HL) 
D-O:IF ((X XOR 66) AND 207)-c50 THEN 5350 

V$(27:29 SBC" :B-37145$(X AND 48)/2:GOTO 5170 

IF ((X XOR 74) AND 207)-c50 THEN 5370 

V$(27:29)-7ADC" :B-37145£(X AND 48)/2:GOTO 5170 

IF ((X XOR 64) AND 199)c50 THEN 5390 
V$(27:28)-"IN":B-6814(X AND 56)/8:OP$(17)-"(C)":GOTO 5170 
IF ((X XOR 65) AND 199)c50 THEN 5410 

V$(27:29)-"700T" :B-57454(X AND 56):0P$(17)-"(C)":GOTO 5170 
IF ((X XOR 67) AND 207)-50 THEN 5430 
V$(27:28)-"LD":B-3784154(X AND 48)/2:PC-PCtr2:GOTO 5170 

IF ((X XOR 75) AND 207)-50 THEN 5450 
V$(27:28)-"LD":B-7294(X AND 48)/16:PC-PCr2:GOTO 5170 
RESTORE 8500 

READ C$,C:IF CsX-CsC THEN V$(27:)-C$:RETURN:ELSE 5460 
PC-PCt14L:CIM-PC:GOSUB 6070:X-ADAT 

ON X/644t1 GOTO 5490,5500,5510,5520 

RESTORE 8600: :B-1t(X AND 7):GOTO 5150 


B-(X AND 56)/81304((X AND 7)41)$40:GOTO 5170 
W2$-CHR$(W2448-74(W25 9 ) ) : RETURN 

W2-INT(W1/16) :GOSUB 6000:W1$-W2$:W2-W1-16rW2:GOSUB 6000 
W1$-W1$áW2$ : RETURN 

W1-INT(W/256) :GOSUB 6010:H$-W1$:W1-W-2565W1:GOSUB 6010 
W$-W$áW1$ : RETURN 

RESTORE 8700:KOD$Z"" 

FOR I-1 TO 14:READ X:KOD$-KOD$SCHR$(X):NEXT I:RETURN 
CIM-CIM4 (CIM: 32767) 165536 

ADAT-USR( 24VARPTR( KODS$ ) , CIM) : RETURN 

POKE VARPTR(KOD$):14,PAGING: 
R2-ORD(A2$)-4817r(A2$"9 


: 2:A2$-R1$(2:) :GOSUB 6100 
€1-16501402: RETURN 
€1$-A$( :2) :GOSUB 6110:€-G1:81$-E$( 3: ) :GOSUB 6110 
€-2256101 : RETURN 

SET INK 2:PRINT AT 6,5:"A"; 
W-PC:GOSUB 6030:PRINT AT 6,13:W$:RETURN 

SET INK 2:PRINT AT 6,20:"P";:SET INK TINTA:PRINT 
HI-PAGING:GOSUB 6010:PRINT AT 6,27:W1$:RETURN 
SET INK 2:PRINT AT 7,5:"N";:SET INK TINTA:PRINT "yomtató:"; 
PRINT AT 7,14:"";:ON NY GOTO 6210,6220 

PRINT "ki":RETURN 

PRINT "be":RETURN 

PRINT AT 4,10:"755 "; 

ON MOD GOTO 6250 ,6260 , 6260 , 6260 , 6260 , 6270 , 6280 , 6280 , 6320 , 6320 


SET INK TINTA:PRINT "ddress:" 


"ading:" 


PRINT "Disasm cc":RETURN 

PETURN 

PRINT " Word 

PRINT "Byte 

IF ADATc32 OR ADAT5159 THEN ADAT-46 

RETURN 

PRINT AT 7,19- INPUT PROMPT "Száma-":X:GOTO 3560 
PRINT "Text cc" : RETURN 


PRINT AT 23,2:7" öz 
V$-STRING$ ( 45 , 32) : RETURN 

DATA B,C,D,E,H,L, (HL) , A, BC, DE, HL , SP , AF , ( BC) , (DE) , (SP) , (00) , (0000) 
DATA 0000,0000,00,NZ,Z,NC,C,PO,PE,P,M,O,1,2,3,4,5,6,7, (HL), HL 
DATA 11,0,71,809,1,334,24,9,24,1,23,1,36,841,13,0 

DATA 33,533,22,371,1,568,23,9,24,2,23,2,36,842,15,0 

DATA 66,19,71,810,1,335,24,10,24,3,23,3,36,843,12,0 

DATA 65,19,22,411,1,608,23,10,24,4,23,4,36,844,14,0 

DATA 65,782,71,811,71,458,24,11,24,5,23,5,36,845,9,0 

DATA 65,783,22,451,71,731,23,11,24,6,23,6,36,846,8,0 

DATA 65,784,71,812,71,338,24,12,164,7,163,7,176,847,16,0 

DATA 65,785,22,491,71,728,23,12,24,8,23,8,36,848,7,0 

DATA 22,48,22,88,22,128,22,168,22,208,22,248,162,288,22,328 

DATA 27,48,27,88,27,128,27 , 168 , 27 , 208 , 27 , 248 , 167 , 288 , 27 , 328 

DATA 20,1,20,2,20,3,20,4,20,5,20,6,160,7,20,8 

DATA 26 , 48 , 26 , 88 , 26 , 128 , 26 , 168 , 26 , 208 , 26 , 248 , 166 , 288 , 26 , 328 

DATA 17,1,17,2,17,3,17,4,17,5,17,6,157,7,17,8 

DATA 21,1,21,2,21,3,21,4,21,5,21,6,161,7,21,8 

DATA 19,1,19,2,19,3,19,4,19,5,19,6,159,7,19,8 

DATA 18,1,18,2,18,3,18,4,18,5,18,6,158,7,18,8 

DATA 28,22,34,9,99,822,99,20,95,822,10,9,57,848,32,17 
DATA 28,23,28,0,99,823,0,0,95,823,95,20,62,848,32,17 
DATA 28,24,34,10,99,824,37,337,95,824,10,10,55,21,32,17 
DATA 28,25,6,0,99,825,38,688,95,825,0,0,61,848,32,17 
DATA 28,26,34,11,99,826,33,456,95,826,10,11,52,21,32,17 
DATA 28,27,29,38,99,827,33,1570,95,827,0,0,56,21,32,17 
DATA 28,28,34,13,99,828,4,0,95,828,10,13,54,21,32,17 
DATA 28,29,1,452,99,829,5,0,95,829,0,0,53,21,32,17 
DATA LD,OUT, IN, DI , EI , EXX , CCF , CPL , DAA , PUSH , NOP , RLA , RLCA 
DATA RRA, RRCA , SCF , AND , CP , OR , SUB , XOR , ADD , DEC , INC , CALL 
DATA SBC, ADC, RET , JP, JR , DJNZ , RST , EX , POP 

DATA NEG, 68, RETN, 69 , IMO , 70 , "LD I,A",71,RETI,77,"LD 
DATA 79,IM1,86,"LD A,I",87,IM2,94,"LD A,R",95,RRD 
DATA 103,RLD,111,LDI,160,CPI,161,INI,162,0UTI 

DATA 163,LDD,168,CPD, 169, IND,170,0OUTD,171,LDIR, 176 
DATA CPIR,177,INIR,178,OTIR, 179 , LDDR, 184 , CPIR, 185 

DATA INDR,186,OTDR,187,"Not used",0 

DATA RLC,RRC,RL,RR,SLA , SRA , SLL , SRL 

DATA 243,62,112,211,2,110,38,0,62,112,211,2,251,201 


R,A" 
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Grocmann-Eichler: A 8086/88-as mikroprocesszor 
— Data Becker — Novotrade, 357. o., 349 Ft. . 

(A könyv az Intel 8086-os, illetve iAPX86-os mikropro- 
cesszorcsalád tagjainak felhasználásához, alkalmazásához 
nyújt segítséget. 


Bognár Júlia: dBASE III PLUS — Számalk, 256 o., 
156 Ft. 

(Az előismeretek nélkül is jól használható kötet a széles 
körben elterjedt dBASE III adatbáziskezelő program to- 
vábbfejlesztett változatát mutatja be.) 


Bodor Tibor: A Commodore 64 programozásának 
gyakorlata III. Számalk, 187 o., 137 Ft. 

(A sorozat harmadik kötete a közvetlen elérésű — random 
vagy relatív — lemezállományok kezelésével foglalkozik, a 
lemezkezelő parancsokon kívül kitérve programtervezési, 
adatfeldolgozási kérdésekre is. Az állományok használa- 
tát működő mintaprogramok illusztrálják.) 


IBM PC DOS I-III. — LSI ATSZ, 1005 o., 692 Ft. 

(A háromkötetes, kimerítő ismereteket tartalmazó könyv 
első része a PC DOS használatát, a második a felépítését 
ismerteti, a harmadik pedig az IBM kompatíbilis mikro- 
gépek leghatékonyabb programfejlesztő eszközének, a 
macro assemblernek használatát segíti.) 


Liesert: PEEK-ek és POKE-ok a C 64-esen — Data 
Becker — Novotrade, 166 o, 120 Ft. 

(A szerző a gép nulláslapjának használatához ad sok ötle- 
tes tanácsot, működésképes trükköt.) 


Babán Gábor-Masa István: Gépi kódú programo- 
zás kezdőknek és haladóknak C 16 és PLUS/4 szá- 
mitógépekre — Novotrade, 211 o., 129 Ft. 

(A kötet első része tankönyv, melyből önállóan is elsajá- 
títható a gépi kódú programozás. A második rész a két 
gépről nyújt számos hasznos információt.) 

Yoshiaka Shiari—-Jun-ichi Tsujii : Mesterséges intel- 
ligencia — Novotrade, 179 o., 349 Ft. 

(A könyv a mesterséges intelligencia alkalmazási területei- 
nek alapvető fogalmaival és eljárásaival foglalkozik, vala- 
mint áttekinti a gyakorlati megvalósítások alapelveit.) 
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Kepes János: Mikroszámítógépes grafika — Mű- 
szaki Könyvkiadó, 157., 55 Ft. 
A kötet címe kissé megtévesztő. Az olvasó ennek alapján 
aztis várhatja, hogy grafikával foglalkozó számítástechniku- 
sok és számítástechnikával foglalkozó grafikusok műveit 
mutatja be a könyv, vagy az ő műhelytitkaikba vezet be. 
Az alcím — Grafikai algoritmusok — már többet elárul: 
Kepes János a grafikában járatlan, de érdeklődő, kísér- 
letező kedvű olvasóknak írta kötetét. 
A könyv egy géptípushoz - a Spectrumhoz - kötődik, 
a szerző e gép grafikai lehetőségeit igyekszik kiaknázni. 
A kötetet gondozó Műszaki Könyvkiadó is hamarosan 
forgalmazni kezdi a demonstrációs programokat tartal- 
mazó kazettát — természetesen Spectrumra. 
Ez a géphez kötöttség azonban nem túl erős, nem köti 
meg az olvasó kezét, mert a szerző nem közöl programlis- 
tákat. , Csupán" olyan matematikai eljárásokat, algorit- 
musokat mutat be, amelyeknek segítségével könnyen elő- 
állíthatók geometrikus jellegű, de mégis lá si rajzok 
a képernyőn. Az eljárások alapelvei ak ran 
I ISzínesen. Így 
arad a fejtörésre: 
rajz előállítását a saját gé- 


hogyan GY. 
nénk segítséget nyújtani az olvasóknak, nem 
t serek megki méljük őket a gondolkodástól, a felesle- 
gés: ,okoskodástól", hanem hogy az egyes eljárások to- 
vábbgondolására biztassunk. Kis programjainkat Com- 
modore Plus/4-esre írtuk, egyrészt, mert a Spectrum- 
tulajdonosok úgyis hozzájuthatnak a kész kazettához, 
másrészt azért, hogy megmutassuk: az eljárások más gép- 
típusra is átírhatók. 
Az első fejezet, a bevezetés tulajdonképpen előszónak is 
tekinthető, a szerző itt a grafika és a matematika össze- 
kapcsolhatóságát hangsúlyozza. A második rész az , Előké- 
szítés" címet viseli, ez tartalmazza egyrészt a későbbiek- 
hez szükséges matematikai ismereteket, a grafikai progra- 
mozás alapjait, és a grafikai elemeket. A matematikai 
összefoglaló kissé tömörre sikeredett, követni és alaposan 
megérteni talán csak az tudja, aki mindezt tanulta már, 
és az itt leírtak csak az ismétlést szolgálják. Mindez azért 
hiba, mert a kötet további része gyakran ezekre az isme- 
retekre épít. A programozási elemek bemutatása viszont 
alapos és kimerítő. Innen megtudható, hogy hogyan mű- 
ködik a sok gépbe már előzetesen beépített egyenes- és 
görberajzoló, foltbetöltő és szakaszkivágó algoritmus, és 
hogy egy grafikai programot hogyan célszerű felépíteni. 
A grafikai elemek ismertetése viszont ismét csak meglehe- 
tősen felületes, általánosságokat fogalmaz meg. 
129) 


azután az olvas 


7 j 


MAN 


1 e 
40 NE: 
59 FORJZOTOL98STEP3 

60 DRAW, 9, JTOGO, 60T0319, 198-JTOZ6O, 149TO 


70 NEXTJ 


A könyv harmadik részében 
kezdődik végre az , érdemi 


munka": ennek alapján már 
bárki kedve szerint teleraj- 
zolhatja a képernyőt. A ter- 
jedelmes fejezet a , Szabá- 
lyos képek" címet viseli, 
görbékből, — görbeseregek- 
ből és pontokból előállítható 
képek algoritmusait mutatja 
be. Hogy már egyszerű, 
egyenes szakaszok seregé- 
ből is milyen látványos kép- 
állítható elő, arra mutat pél- 
dát az 1.és a 2. program 


fi 9 


Hi 


HA 


— mely a könyv , Interferen- 
ciaminták" című alfejezete 
alapján készült. Kiemelésre 
érdemes a ,:Képek pontok- 
ból" alfejezet is, de erre 
nem mutatunk be külön il- 
lusztráló programot, hiszen 
főként fraktálokkal és sejt- 
automatákkal — foglalkozik, 
amiről a BIT-LET- eg 

többször 


Aj lee ez "A véletlen 


képei". A legegyszerűbb, 
egyenes vonaldarabokból ál- 
ló , firkálástól " kezdve eljut 
olyan rajzok létrehozásáig, 
amelyek labirintusra, talaj- 
rétegek egymásra halmo- 
zódására, tintafoltokra, vagy 
szövetmintára  emlékeztet- 
nek. Úgy érezzük, hogy in- 
formációtartalma és sokol- 
dalú illusztrációs felhasz- 
nálhatósága miatt érdemes 
ezekkel az eljárásokkal rész- 
letesebben is foglalkoznunk. 
Azt, hogy a képernyőt ho- 
gyan lehet véletlenszerűen 


összefirkálni, nyilván min- 
denki tudja, aki megírta első 
önálló  rajzolóprogramocs- 
káit: sorra választunk pon- 
tokat a képernyőn, és mind- 
egyiket összekötjük az elő- 
zővel. Ez azután továbbfej- 
leszthető úgy, hogy a rajz 
egy légy vagy egy szúnyog 
mozgását idézze — ezt mu- 
tatja a 3. és a 4. program. 


Látható, hogy nem sokban 
különböznek, az eltérés csak 
annyi, hogy a légy mozgásá- 
nál az egymáshoz kapcso- 
lódó egyenes szakaszok 
— a gép grafikai felbontó- 
képességéhez mérve — meg- 
közelítőleg ugyanolyanhosz- 
szúak, a szúnyog mozgá- 
sánál pedig a hossz vélet- 
lenszerűen rat Át 


A két kis mi vé 
vápoíajtás 


gre ólásgó 


rajz. Ezek röpte nem olyan 


idillt 
T.S pülésére emlékeztessen a 
kötet legérde- cikcakkos, mint a légyé 


vagy a szúnyogé — így a 
röppályát itt pontonként 
rajzoljuk meg. (5., 6. prog- 
ram). 


7 89 
jú 90 


SRAPHIC1 4 
S169: Yi [td 
ORÁN 
Az: 25 RERNDC1) 
LOCA 
VEZOLRNDLC 1 ) (COS( A) :WE3OKRND( 1 )4SINCA) 
JEXTVEGORXV3256ORYtWCOORY 143 2OOTHENG 


40 
KEXHV:YZY4W:DRAWTOX, Y 
GOTO4Ó 


.X 
$XERNDC1) 


: YZY4W:DRAWTOX, Y 
ág 


GRAPHIC1. 1 
7169: y3109:D-19:H-130 
Viz1O:V2 

DRAW Keze 

ESSEK S zető Aja 
IF ABS(VI)PDTHENVIED:SSGN( VI) 
V2-V21SGNIRNO( 1) 1(200-H)4H/2-Y) 
IF ABS(V2))DTHENV2:D:SGN( V2) 
LOCATEX, Y 

DRAWTOXÉVI a, YHV2 

KZAGVI gY7YV2 
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Li 
VESSCOSA) :W-SZSINCA 


0 ) 
TEXYVSOANOXEV ZORNÖYHIJOANDYH4CZOOTH 


LO Y 
180 DRANTOKÉVI, YtV2 

116 KEXHVI:YzYHV2 

120 DRAWTOX-V2, YtVI: 

136 GOTO 50 


:D519:Hz130 


20-H)tH/2-x) 
$SGNCV1) 


ISGN(V2) 


10 PRINTCHR$( 147) 

20 Az3072:DIMC(10,17) 

30 EoR1-81938, 

49 ROKE LATI, Í60:POKEA19604I , 160 
EX 


86 FORI-80 TO 920 STEP4O 
49. BOKÉLÁTI, 160:POKEA-241, 160 
NI 


Ex 
90 Yzo 

100 PzINT(11:RND(O)):0O-INT( 183RNOCO)) 
110 IF C(P,0)z1 THEN 100 

120 RzATSZIPTBOLOTZ 

130 POKER, 169:C(P,0)z1:YzYt1 

140 XzINT(4:1RND(CO))t1 

150 ONXGOSUB18O, 219. 240, 270 

160 IF Y-198 THEN 360 

170 GOTO100 

180 POKE R-40, 160 

190 IF BEEKC RE 8092160 1Í agy RETURN 

2090 R-R-BO :POKER, 160 :P-P-1:C(P, 0)s1:YzYt 
1 :GOTO1BO 

210 POKE R-1, 160 

229 IF PEEKCR-2 )z)59 THEN RETUR 

250 ReR-2:POKER, I60:0-0-1:C(P, a) EL:YeYti 
:  GOTOZ18 

249 POKE Rt1 

350 IF PEEK(ki2)-160 THEN RETURN 

260 RzRt2:POKER, 160: O-Ot1:CCP,G)el:YzYti 
:GOTO240 


276 POKE Rt40, 160 
280 IF PEEK(R380)-160 THEN RETURN 
290 R-R180:POKER 


fi 270 
Zó0 GETKÉY As 


"d 


, 160:PePt1:CCP, a)-1:YzYt 


ENXEXHV:YEY$W: DI 
190 GOTÓSO 


A madár röptéből azután egy 
kis " , szőrözéssel"  kialakít- 
ható olyan ábra is, ami a 
majmok és az elmebete- 
gek rajzaira emlékeztet (7. 
program) sőt, ezzel a 
módszerrel tekergő szalagot 
is rajzolhatunk. (8. prog- 
ram). 


A véletlen, és a képeinyén 
való bolyongás problémájá- 
hoz tartoznak a labirintusok 
is: hogy tudunk számító- 


dohel. sző labiri vagel 
e 2 EGK 
ályát 


y két pontja 
dggetkrey egy út ve- 
65i — azaz nincsenek bezárt 
területei, körbejárható ré- 
szei. Kepes János részle- 
tesen leírja az algoritmust 
— sőt, az már az 1985-ben 
megjelent, Etűdök személyi 
számítógépre című könyv- 
ben is szerepelt —, így csak a 
programlistát közöljük. (9. 
program). 
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A talajrétegek gyűrődésére 
emlékeztető rajz elkészítésé- 
nek alapelve igen egyszerű 
— 10. program. A képet 


§ 
nem úgy építjük fel, ahogy 
a természetben létrejön, va- 
gyis nem az alsó, sima réte- 
gektől kiindulva , ráncosít- 
juk" felfelé haladva, hanem 
fordítva: rajzolunk egy vélet- 
lenszerűen cikcakkos vona- 
lat a képernyő felső részén, 
és lefelé haladva ezt , egyen- 
getjük" ki. 

Ennyi ízelítő bizonyára elég 
ahhoz, hogy érzékelhető le- 
gyen, mi mindenre jó a szá- 
mítógép  véletlenszám-ge- 
nerátorának és grafikájának 
párhuzamos használata. Tér- 
jünk rá az 5. fejezetre, amely 
a térbeli képek megjelení- 
tésével foglalkozik! 

Mivel egy térbeli tárgy síkra 
leképezése nem kevés ma- 
tematikai ismeretet igényel, 
a fejezet egy elméleti beve- 


zetővel " kezdődik. Ezzel 
ugyanaz lehet a problé- 
mánk, mint amit dik 
fejezet m e- 


aki korábban 
oglalkozott hasonló 
feladatokkal, nem s0- 
kat mond. Az algoritmusok 
viszont szép és látványos 
eredményt adnak — bemu- 
tatja a szerző a görbült felü- 
letek érzékeltetésének mód- 
szereit, a testek takarásának 
és árnyékolásának megjele- 
nítését. Ez utóbbira mutat 
példát a 11. program. 


MATS TÖL ii 
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GRAPHICI, 1 
20 DIMAL ág) :DIMB(40) 
30 FORI-OTO4O:A( I) 56O3RND( 1) :NEXTI 
49 G08U8140 


[4 
LOCATÉHRRL OB ACX-1) 
60 ORAWTOXEB, AC X) 

70 NEXTX 
80 RETURN 


10 GRAPHICI,1 7 
20 P-169:ú-199:R-B0 
39 FORFIZOTOZtESTEP. 93 
40 FORKSZIZOTORS 
EZÜSÍNCEI Jt ŐOS(KSZI )COSCFI )1COSCKSZI 
)4SIN(KSZI)42)/4 
69 IFEJRND( 1 ÍTHENDRAW, PtRtSIN(FI)$COS(KS 
Z1), OtRSCOS(FI)COS(KSZI) 
70 NEXTKSZI :NEXTFI 


Gömb képzetét kelti egy 
kör alakú terület megfelelő 
árnyalásával. 

A kötet további része — 6—9. 
fejezet — szintén tartalmaz 
tetszetős illusztrációkat és; 


jól használható  eljáráso- 
kat. Ezekhez már nem 
közlünk programlistákat, 


mivel az itt bemutatott gra- 
fikák egyszerűen előállít- 
hatóak — vagy azért, mert 
nagyon könnyen gépre vi- 
hetőek, vagy azért, mert a 
legprimitívebb. rajzolóprog- 
ram is többre képes e feje- 
zetek témái kapcsán, mint 
amit BASIC-ből elérhetünk. 
Így a 6. fejezet, a Szim- 
metrikus minták" azt 
mutatja be, hogy a képer- 
nyőt hogyan tölthetjük fel 
azonos ábrarészletekkel, és 
hogy a különböző feltölté- 
sek milyen grafikai hatást 
eredményeznek. Ez a feltöl- 
tés azonban! a lehető leg- 
egyszerűbben egy olyan 
rajzolóprogrammal oldható 
meg. amely képes a képer- 
nyő egy-egy részét átmá- 
solni — márpedig ilyen funk- 
cióval a legtöbb rajzprog- 
ram rendelkezik 

A 7. rész címe: Számi- 
tógéppel rajzolt képek. 
Itt azután keverednek a 
grafikai és a  matemaikai 
ismeretek. Az első alfejezet 
—- Tollrajzok — ismét csak 
olyan kérdésekkel foglalko- 
zik. amelyek a legegyszerűbb 
rajzprogrammal is megold- 
hatók: a pontonkénti és 
szakaszonkénti rajzolással. 
Persze, , nem érdektelen 
megtudni, hogy hogyan is 
működnek ezek a funkciók, 
de sok gyakorlati haszna 
nincs. A tónusos rajzolás 


már izgalmasabb, a közelítő 
vonalrajzolás — közelítés po- 


linomokkal — viszont szinte 
tisztán matematika, inkább 
a 2. fejezetbe kívánkozik. 

A 8. , Motívumokból ké- 
pek" című rész a kép- 
zőművészeti . kompozíciók 
megalkotásának rejtelmeibe 
kívánja bevezetni az olvasót, 
hat oldalon. Foglalkozik a 
motívumok kombinálásával, 
a kerettel, a kompozíció 
szabályosságával és a textú- 
rával — de persze ilyen terje- 
delemben igencsak felüle- 
tesen, általánosságokról 
szólva. 

Végül a 9. fejezet a moz- 
gó képek megalkotását, a 
számítógépes animá- 
ciót mutatja be. Újra egy 
izgalmas téma. sajnos. na- 
gyon tömören, kilenc föolda- 
lon bemutatva  — (de [azért 
elfér itt! apkaraktergrafikától 
agképérnyőgörgetésen át a 
Valódi rajzfilmek  alapele- 
meiig sok minden. A be- 
mutatott eljárások alapjai le- 
hetnek akár egy játékprog- 
ram animációjánakis. 

Mint kiderült, a kötet nem 
egyenletes színvonalú. Gya- 
koriak a szerkesztési követ- 
kezetlenségek is, így gyak- 
ran logikátlanul követik egy- 
mást az elméletieskedő és a 
gyakorlati képalkotást célzó 
részek 

Hatalmas érdeme viszont. a 
ötetnek az az ötlet dag- 
ság és széles látókör, ahogy 
a szerző körbejárja ezt a 
szerteágazó témakört. Talán 
példaprogramjaink is érzé- 
eltetik, hogy némi mate- 
matikai ismeret birtokában 
és kellő kíváncsisággal" mi- 
yen lehetőségei vannak a 
mikroszámítógépek  grafi- 
kájának —- de mindehhez 
ermészetesen ajánljuk a 
könyv elolvasását is. 


TV-Computer iáték- és felhasználói programokat cse- 
rélnék. A legapróbb programocska is érdekel. 
Kiss Csaba, 9443 Petőháza, Bartók Béla u. 20. 


Commodore 16-os programokat cserélnék! Keresem 
a Mondy On The Run és a Cuthbert In the Tombs Of 
Doom C 16-on futó változatát. 

T/At Szabolcs, 2400 Dunaújváros, Váci Mihály u. 11. 


Várom azoknak a SINCLAIR SPECTRUM 128 Kbyte-os 
géptulajdonosoknak a jelentkezését, akik gépkezelési le- 
írással rendelkeznek. 

Tatár Árpád. 8006 Székesfehérvár, Benke F. u. 8. 


ama 


Commodore 1125-as gépre és 1571-es floppyra fel- 
használói programok — adatfeldolgozó, szövegszerkesztő 
stb. — cseréjéhez kapcsolatot keresek. A programok kézi- 
könyve, leírása is érdekel. 

Gömöri József, 1086 Bp.. Lujza u. 1/b 


Primo programokat cserélek. Várom azok jelentkezését, 

akik gépükhöz hardverbővítést készítettek. 

Varsányi Gábor, 7500 Nagyatád, Aradi u. IX/c, IV/3 
játék- 


Keresek ZX Spectrumhoz felhasználói, és 
program-leírásokat, térképeket, örökélet (POKE) kódokat 


A ,.Sinclair Spectrum Játék és Program 1-I1-III megvan." 
Gedő Tamás, 1165 Bp.. Veres P. út. 121 
ATARI ST . tulajdonosok ismeretségét keresem ,,intim" 


eszmecsere céljából 
Tóth András. 8800 Nagykanizsa, Berzsenyi u. 14/A 


COMMODORE 16, PLUS/4 felhasználói és játékprog 
ramokat cserélek! Márkatársak írjatok! 
Egri Imre, 5561 Békésszentandrás. Péró u. 2 


ATARI cseretársakat keresek 
Habányi Tamás, 8200 Veszprém, Egry u. 45/c 


C 16, PLUS/4 gépre angol, német és orosz nyelvi okta- 


tóprogramok eladók. Játék- és felhasználói programok 
cseréje 

Kálmán Albert, 3300 Eger, Rákóczi út 31. III/11. Tel.-üze- 
net: 143-031. 330-345 (Bp.) 
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Sokan - és joggal - kifogásolják, hogy az ATARI 
800XL funkcióbillentyűi (HELP, START, SELECT, 
OPTION) BASIC-ből csak nehézkesen, PEEK függ- 
vénnyel használhatók. 

Az alábbi rutin lehetővé teszi, hogy nyolc progra- 
mozható billentyűt használjunk. 
AzUSR(37246.Fx ADR(K$) LEN(K$)) 

utasítással adhatjuk meg a funkciót. 

Fx helyére 1-8 közti számot kell írni : 


1 - HELP 

2- START 
3 — SELECT 
4 — OPTION 


5 - SHIFT-HELP 

6 — SHIFT-START 

7 — SHIFT-SELECT 

8 — SHIFTHOPTION 

K$ tartalmazza a kívánt szöveget; ez bármi lehet, az itt 
levő karakterek a továbbiakban úgy viselkednek, mintha a 
billentyűzetről írnánk be azokat. Ha a stringet a CHR$ 
(155) karakterrel zárjuk, azonnal végrehajtódó utasítást 


kapunk. 
PI.: K$- "GRAPHIC$ 07:K$(11)-CHR$(155):A—-USR 
(37246.3 ADR(K$),11) 

Ezek után a SELECT gomb lenyomásakor — parancs mód- 
ban - azonnal törlődik a képernyő és a 0. grafikai üzem- 
mód jön létre. 
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Számtalan alkalmazási lehetősége van a billentyűk- 
nek, csak arra ügyeljünk, hogy a string nem lehet hosszabb, 
mint 32 karakter! 

0 hosszúságú stringet írva a billentyűt , kikapcsolhatjuk". 
Speciális lehetőség a CONTROL--HELP. Ez igazi help- 
funkció! Megnyomásakor tetszőleges BASIC program- 
sorra ugorhatunk az eredeti programfutást megszakítva ! 
A-USR(37321.sorszám) utasítással tölthetjük be a kívánt 
sorszámot, attól kezdve a CTRL-4-HELP gombot bármikor 
lenyomva a megadott sornál folytatódik a végrehajtás. 
Ez lényegében felhasználói BREAK", de lehet segédin- 
formációk kérése, folytatás és abbahagyás vezérlője stb. 
32767-nél nagyobb számot írva a billentyű hatását meg- 
szüntethetjük. 

Arra kell ügyelnünk, hogy a gomb által kiváltott ugrás az 
esetleges TRAP sorszámot törli. 


Figyelem! Ez a rutin RESET után sem törlődik, tehát el- 
maradhat az eddigi POKE 106,144...stb. Mondanom se 
kell, hogy az eddig ismertetett rutinokkal együtt használ- 
ható, így most már azok is "RESET-biztosak" . 


Ellenőrzés : 

RESTORE:A-—O:FOR 1-1 TO 260:READ B:A—AtB: 
NEXT I:? A b 

A képernyőn 30535-nek kell megjelennie. 


Rieth József 


[FM 


HA ÉRDEKLI A SZÁMÍTÓGÉP - FÖ 


A tavalyi és tavalyelőtti sikeren fel- 
buzdulva idén is megrendezzük év 
végi zsibvásárunkat. Tavaly voltunk 
vagy ötezren, idén megcélozzuk az 
5001-et. Az 5001-ik fizető vendé- 
get egy karácsonyi BITLET-ko- 
sárral jutalmazzuk! 

A helyszín a budapestieknek közis- 
mert, a vidékieknek segítségképpen: 
A Keletitől a 7-es busz, a Nyugatitól 
a 12-es busz, a Délitől a 18-as villa- 
mos, az Engels téri buszpályaudvartól 
az 1-es busz a legjobb közlekedési 
eszköz. . Autósoknak előmelegített 
parkolóhelyek! 

(Vállalkozó kedvűek jöhetnek futva, 
úszva, esetleg gyalog.) 

A KAPUNÁL VÁLASZTÉKOS MO- 
DORÚ JEGYSZEDŐINKNÉL DIÁ- 
KOK ÉS KATONÁK 15, MÁSOK 25 
FORINTÉRT VEHETNEK BELÉPŐT. 


PROGRAMCSEREBERE 


Idén ismét 50 géphelyet állítunk 
föl. Szokás szerint adjuk a tévét és a 
csatlakozási lehetőséget. A többit 
önnek kell hoznia! Egy asztal egy 
órára 30 forint. A bérletek elő- 
jegyezhetők. Aki december 7-ig be- 
fizeti a bérleti díjat, az 2096-kal keve- 
sebbet fizet! 

A helyfoglalást telefonon is. személye- 
senis, postánis lebonyolíthatják.A Cso- 
konai Művelődési Házban reggel 9- 
től este 9-ig várja jelentkezésüket, 
vagy hívásukat $perber László. 


Telefonok : 690-495 vagy 892-240. 
Postacím: Csokonai Művelődési 
Ház 1153 Budapest XV., Eötvös u. 
64-66. 
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PROGRAMBÖRZE 


Aki nem csereberélni akar, hanem 
saját készítésű programjait, hardver 
eszközeit kívánja árusítani, az külön 
megállapodást köthet a rendezőkkel. 
Az eladni kívánt áru értékétől, a 
szükséges helytől, technikától függő 
bérleti díjat kell fizetnie. 


HIRDETÉSEK 


Idén is rendelkezésükre állnak a 
helyszínen hirdetési eszközeink. Cse- 
reajánlatok, számítógépes barátok 
keresésére vonatkozó közlemények 
közzététele jutányos áron, egyéb hir- 
detések, másolatok a triplájáért. 
HANGOS REKLÁM: 10 forintért 
többször bemondjuk az ön által meg- 
adott szöveget 

RÖPCÉDULA: A4-es laponként 2 
forintért sokszorosítjuk az ön által 
megadott szöveget. Esetleg a terjesz- 
tésben is segítünk. 


BEMUTATÓK 


Erről egyelőre keveset árulunk el, 
mert keveset tudunk. Idén is lesz 
nagyméretű kivetítő, amire bizonnyal 
fölkerül az Amiga, a Macintosh, az 
Atari ST., az Enterprise képe. Sze- 
retnénk bemutatni lézerprintert, ter- 
vezői munkaállomást, az új IBM 
család egyik-másik tagját. Ötleteket, 
bemutatásra érdemes programokat, 
termékeket szívesen fogadunk. Kér- 
jük, hogy ötleteikkel keressék meg 
telefonon Angyalosi Lászlót. 
(408-603) 


TLENÜL JÖJJÖN EL! 
DECEMBER 12-13-ÁN 9-TŐL ESTE 7-IG 
A MŰSZAKI EGYETEM KÖZPONTI ÉPÜLETÉNEK AULÁJÁBAN 
BUDAPEST XI., MŰEGYETEM RAKPART 3. 


PROFIKNAK 


Idén külön meghívót küldünk egy 
sor IBM kompatibilis géppel ren- 
delkező cégnek. A ,,Profi szek- 
ció"-ban reményeink szerint üz- 
letkötésekre is sor kerül majd. 
Természetesen a megkülönböz- 
tetés nem jelenti azt, hogy az 
amatőröket elzárnánk az IBM 
kompatibilis, és más professzio- 
nális gépekre készült szoftverek, 
hardverek bemutatójától. 


EGYEBEK 


Egyebek közt ott lesznek a BIT- 
LET szaktanácsadói, a bemutatókon 
alkalmuk lesz kérdezni a különböző 
gépekhez értő szakemberektől, lesz 
JÁTÉKSAROK, ahol sok-sok szá- 
mítógépes játék kezelésére vonatkozó 
tanáccsal látják majd el az érdek- 
lődőket. 

És aki nem vette meg még számi- 
tógépes barátai, családtagjai ré- 
szére a karácsonyi ajándékot, an- 
nak rendelkezésére állnak a kü- 
lönböző cégek könyveket, prog- 
ramokat árusító pavilonjai ! 


RENDEZŐK, 


VÉDNÖKÖK 


Az idei BIT-LET Karácsony rendezője a 
Csokonai Művelődési Ház és a 
BIT-LET Szerkesztősége, védnöke 
az AGROBANK RT., a KISZ KB., 
a NOVOTRADE RT., a SZÁMALK, 
a SZÜV COMPUTER M., és az 
ÁPISZ. Ha jól érzik magukat. őket 
dicsérjék, ha rosszul, akkor a ren- 
dezőket szidják! 
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LESZ-E VALAHA IS REND? 


" A sorvezető legutóbbi nekifutása (1987. március-—július) 
alkalmából a , rendezésnek" volt a legjelentősebb vissz- 
hangja. Ketten(!) is reagáltak magára a Sorvezetőre, sőt 
az ott kitűzött — nem egyszerű — feladatra (mely egyben 
a NYERŐ pályázat feladat is volt) 21 MEGOLDÁS érkezett 
(melyek közül 12 helyes volt). Ezekről részletesebben a 
pályázat értékelésénél olvashatnak. 
idézzük fel először a feladatot : N darab elemet (számot, 
nevet stb.) kell nagyság szerint sorbarendezni. Az idézett 
számban (1987. június 25.) szerepelt két ún. lassú megoldás. 
A relatív maximum keresés, illetve a rokon , buborék" 
módszer műveletigénye egyaránt N:N/2, azaz nagyjából 
ennyi alkalommal kell összehasonlítást végeznünk a ren- 
dezés során. Ez ezer adat esetén közel félmillió hasonlítás, 
ami már percekig is eltarthat. 

Ugyanebben a részben előkészítettünk két jóval gyorsabb 
változatot. A felezéssel történő beszúrás (3.b. megoldás), 
illetve az összefésülés (4. program) egyaránt általánosít- 
ható olyan programmá, ami , csak" N x LOG(N) összeha- 
sonlítást végez mindössze. Ez ezer adatnál például fél- 
millió helyett mindössze tízezer (ötvenedrésze!) művelet. 
Ezt tűztük ki feladatul, egy egyszerűbb speciális esetben 
(N-128). Kajári Gábor (Cegléd) az összefésülésen ala- 
puló programján kívül egy másik rendező-programot is 
beküldött, mely sok esetben kb. kétszer gyorsabbnak 
látszik (s mindenesetre rövidebb) az összefésülésen ala- 
puló programnál. Ez a , $ok esetben" kb. azt jelenti, hogy 
ha az adatok eléggé össze vannak keverve (pl. a program- 
ban látható véletlenül előállított sorozat ilyen), akkor való- 
ban gyors. Azonban ha pl. kipróbáljuk a programot egy 100 
hosszú 1-0 sorozattal, akkor a futási idő kb. két és félszer 
akkora lesz, mint 100 véletlen adatra (18 másodperé he- 
lyett 46 másodperc). A program listáját triviális módosí- 
tásokkal közöljük. 

Ígéretünkhöz híven igyekszünk valami aprósággal hono- 
rálni olvasónk nem jelentéktelen fáradozását: magam ré- 
széről szívesen megküldöm az áhított Lovász-Gács: Algo- 
ritmusok c. könyvét (melyet a közelmúltban adott újra ki 
a Műszaki Könyvkiadó), másrészt pedig természetesen 
részt vesz a NYERŐ pályázat sorsolásán. 

Ceglédi barátunk levelében elég sokat foglalkozik a köny- 
vekkel. Ehhez kapcsolódva adnék hírt egy újabb jó ki- 
adványról. Az OMIKK jelentette meg a , Számítástechnika 
középfokon" című munkát. Több mint tíz oldal foglalko- 
zik a rendezésekkel, elméleti kérdésekkel is, és az algo- 
ritmusok verbális leírása is szerepel. Ugyancsak a közel- 
jövőben jelenik meg E. Knuth: A programozás művészete 
c. műve a Műszaki Kiadónál, ami hasonló kérdések alap- 
könyvének tekinthető. 


A RENDEZHETŐSÉGRŐL 

Mostani alkalommal nem annyira a rendezés mikéntjéről 
lenne szó, inkább a rendezhetőségről. Bizony, nem magá- 
tól értetődő, hogy egy halmaz (tökéletesen) rendezhető ! 
Az eddig tárgyalt esetekben olyan (jól mérhető) szem- 
pontok szerint kellett rangsorolni, hogy két dolog össze- 
hasonlításával egyértelműen eldönthető volt a köztük 
lévő reláció (£), vagy —). Már a testmagasság is olyan, 
hogy a mérés (összehasonlítás) eredménye sok mindentől 
függhet (kíhúzza-e magát, fáradt-e stb.). Még sokkal in- 
kább ilyen például a sportversenyek területe. Mikor mer- 
jük kijelenteni, hogy egy sportoló (egy csapat) jobb a má- 
siknál? Hiába veri meg ellenfelét egyszer, ha legközelebb 
revansot vesz a másik! Figyelembe vegyük-e, hogy az 


SZÁMÍTÁSTECHNIKAI MELLÉKLET-1987 NOVÉMBER 


egyik eredmény fölényesebb volt, mint a másik? Vagy mit 
kezdhetünk avval a szituációval, amikor A legyőzi B-t, 
B diadalmaskodik C felett, és A kikap C-től. Melyikük a 
legjobb, illetve a legrosszabb? 

Sok sportágban hosszú idő alatt alakult ki a legjobbak rang- 
sorolásának mikéntje. Gyakran a sportág legnagyobb ver- 
senye (olimpia, VB) az alapja egy erősorrendnek. Ez nyil- 
ván függ a szerencsétől (egyszeri formaidőzítés, kieséses 
rendszernél számít a sorsolás stb.). Valamivel jobb a pont- 
verseny: sok verseny eredményét pontozzák, és a pont- 
számok összege dönt. Ennek hátránya, hogy aki valami 
miatt kevesebbszer indul, az hátrányban van. 

Két sportágat emelnék ki, elsősorban a sakkot (Élő-pon- 
tok), másrészt a teniszt (ATP-lista). Nem ismerek más te- 
rületet (persze ettől lehet), ahol ennyire következetesen 
történne a rangsorolás. Mindkét rendszer , folyamatos", 
állandóan a megelőző listát módosítják az újabb eredmé- 
nyek alapján. Sakkban sokkal statikusabban, azaz hiába 
veri meg valaki az addig élen állót, ettől csak emelkedik, 
de nem lesz rögtön első! Minden versenyzőhöz minden 
időpontban hozzá van rendelve egy pontszám. Ezek alap- 
ján minden versenynek van egy értéke (minél több jó 
játékos vesz részt, annál magasabb), és eszerint kap (vagy 
veszít) pontokat minden résztvevő — helyezése (győzel- 
meinek száma) szerint. Ily módon szinte minden , esemény" 
után azonnal kész az új lista. Ezen zseniális rendszer tehát 
még arra is tekintettel van, milyen körülmények között 
(milyen erős versenyen) születik egy eredmény. Még 
egyszer hangsúlyozzuk, hogy nagyon erős szerepe van a 
múltnak: egy ifjú üstkösnek az élmezőny sok tagját kell 
megvernie, hogy az elsők közé kerüljön. Mindenesetre 
nem meglepő, hogy Élő Árpád professzor — aki a sakkozók 
rangsorolásának rendszerét kidolgozta —, matematikusként 
is ismert, hiszen elméletileg nagyon jól megalapozott 
rendszert alkotott — de statikussága miatt igazából csak 
sakkra ideális. 

A teniszezőknél is tekintettel vannak régebbi eredmények- 
re, de kevésbé. Erre a sportágra ugyanis sokkal jellemzőbb 
a hirtelen berobbanás (McEnroe, Becker stb.). Minden 
nagyobb versenyért lehet pontokat kapni (ha elöl végez 
az illető), figyelembe veszik, ki hány versenyen indult, 
nézik a győzelmek/vereségek arányát stb. Elég bonyolult 
829 INPUT N 


DIM A(N) 
999 FOR Isi TO N:A(I)sINT(109£RND (4) ) : NEX 


SL 
919 FOR Is1 TO NIPRINT A(I) ,:NEXTI 
1999 REM ttt4t GYORSRENDEZO tt4tit 


59 P:g 
1060 F(O)si:L(O)zN 
1970 öz esztz 

sz P— 

999 GOSUB 1219:REM FELOSZTÓ HIVASA 
IF L-I2J-F THEN 1131 
IF IKL THEN PsP-tizF(P)sIsL(P)sk 
LzJ:GOTO 1150 
IF FCJ THEN PsPt12:F(P)sF:L(P)sJ 


FsI 
IF LDF THEN 1999 
IF P)-1 THEN 1970 


FOR Isi TO N:PRINT A(I) ,:NEXT I 
REM 3t44t FELOSZTÓ SZUBRUTIN 46444 
JsL z 


IsF: 
KzINT ( (FL) /2) a MsA(K) 
IF A(I)CM THEN IF I£sL THEN IsIt1t6O 


39 
EZ IF A(J)jzM THEN IF J)sF THEN J5sJ-116 


1259 IF IdzJ THEN 1280 
1269 CsAC(IDLA(I)SA(J):A(J) ze 
mJ— 


ejj al ja Jel ja lá a pal Ba jat hál ja ba jet 

UN SONDOGAUN re 
rESSSÍSJSSSÉSSS 
pi mu) 


jefejetetetetetetetetetetsést 


I N 1230 
IF IC2F THEN 15338 


399 IF Ft1 THEN 1320 
SZARIK ACL YEAZISENA KSE 
zI4 
1338 RETURN: REM VISSZATERES A FELOSZTOROL 


összeállítani a rangsort, jellemző. hogy már sok évvel ez- 
előtt is számítógéppel végezték (pedig akkor ez még nem 
volt kötelező divat). 


MIKOR JÓ EGY RANGSOR? 

Ezek után nézzük meg, hogy mikor jó egy rangsor? Elemi 
követelmény, hogy ha A legyőzte B-t, akkor előzze is meg. 
De mi van, ha A háromszor nyert, B pedig két alkalommal? 
Erre azért nyugodtan rámondhatjuk, hogy A (valamivel) 
jobb. Mit mondjunk, ha mindketten 2-2 ízben győztek? 
Nyugodtan állíthatjuk, hogy (nagyjából) egyformák, dönt- 
sön a mások elleni mérlegük. Persze a holtversenyt nem 
kell kizárni, csak ne vigyük túlzásba! Sajnos a fenti A-B—C 
körbeverés mindenképpen ellentmondást eredményez a 
listában. Nem szerencsés ilyenkor azt mondani, hogy ők 
, egyformák". Gondoljunk arra, hogy az összes eredmény 
alapján A az első, B a hetedik, C a nyolcadik. Ha a ,C 
pedig megverte A-t" ellentmondást A,B.C egyformaságával 
próbálnánk feloldani, akkor hozzájuk kellene csapni a 
köztük lévő öt versenyzőt: 1-—8-ig mindenki egyforma! 
Ezért kell csínján bánni a holtversennyel. 

Ezek alapján talán nem meglepő, hogy javaslom tökéletes- 
nek mondani azt a rangsort, ami nem tartalmaz ,.ellent- 
mondást". Persze ez általában lehetetlen: azok a fránya 
játékosok összevissza ingadoznak formailag. Mondjuk 
inkább azt, hogy egy lista annál jobb, minél kevesebb az 
ellentmondás. Érdemes egy picit elgondolkodni azon, ho- 
gyan (milyen algoritmus szerint) lehetne sorbarendezni 
versenyzőket. 

Még csak annyit, hogy néhány ilyen módszer közül az 
egyikkel megvizsgáltam (annak idején) az 1979. évi 
ATP ranglistát. Az újságokban közölt listában hemzsegtek 
az ellentmondások, persze ez főleg a múlt figyelembe vétele: 
McEnroe 79-ben már rendesen verte Connorst, de előző 
évben még sehol sem lévén, mögötte volt! 

Inkább a mérkőzések eredményeit boncolgattam, és a 
következő adódott: N jelenti, hogy az ATP lista első hány 
emberének mérkőzéseit vettem figyelembe. 


játékos (N) 6. "8... 107 12. 14-20 
mérkőzés N(N-1)/2 15. 28-45. - 66. 591 190 
ellentmondások 1 1 4.37 91-49 


Ha ezek után valaki erkölcstelen bundázóknak tartja a 
profik színe-javát, azt megnyugtatom, hogy RND-vel ge- 
nerált , mérkőzések" esetén sokszor ennyi ellentmondást 
lehet csinálni. 


KÖVETKEZETLEN ÍZLÉSÜNK 

Arra, hogy nemcsak a teniszvilág , következetlen", hanem 
például a kedves olvasó is, hadd mondjak egy pár éve igen 
népszerű példát. Gondoljunk néhány (N) gyümölcsre. 
Képezzünk ezek közül minden párt (N:(N—1)/2 darab), 
és mondjunk véleményt minden párról: melyiket kedveljük 
jobban. Ha nem figyelünk, hanem kizárólag az emlékeinkre, 
az ízlésünkre támaszkodunk, akkor már N—12—16 esetén 
ellentmondásba keveredünk. N—25 esetén kiváló eredmény, 
ha valaki tíznél kevesebbet hibázik! Természetesen lehet 
, csalni": magamban sorbaállítom a dolgokat, és mindig 
ennek megfelelően mondok véleményt. . . 


A REND IS RENDEZHETETLEN 

Végül szerepeljen egy példa, hogy nemcsak a versenyzők 

formaingadozása felelős a rendetlenségért. Tekintsünk 

9 GO játékost jelentős tudáskülönbséggel. A GO egyik 

fő vonzereje, hogy egy jobb játékos szinte biztosan megver 

egy rosszabbat, tehát feltehetjük. hogy a 9 versenyzőnk 

szinte biztosan rangsorolható, és senki nem képes meg- 

verni előtte állót. 

Csináljunk három csapatot belőlük a következőképpen: 

1. csapat 1. (legjobb), 6., 8. 

2. csapat 3., 5. 7. 

3. csapat 2., 4., 9. (utolsó) 

A három csapat körmérkőzést játszik, melynek során min- 

den csapattag játszik az ellenfél mindhárom versenyzőjé- 

vel. Mi lesz vajon az eredmények alapján a csapatok sor- 

rendje? Láthatjuk tehát, hogy hiába teremtünk rendet az 

egyéneknél, csoportok esetén már minden felborulhat! 
Török Turul 

o 


NYERŐ nevű egyfordulós pályázatunkra (rendezés összefé- 
süléssel) 21 megoldás érkezett. Ezek közül néhány hibás, 
többen pedig nem a kitűzött feladatot oldották meg (azaz 
nem a két rendezett sorozat összefésülésén alapuló progra - 
mot írtak, vagy pedig azon alapuló, de nem elég gyors prog- 
ramot). 

A helyes megoldás az, hogy először a szomszédos számpáro- 
kat rakjuk helyes sorrendbe, majd a szomszédos párok 
összefésülésével rendezett négyeseket hozunk létre, ezután 
a szomszédos négyesek összefésülésével rendezett nyolca- 
sokat csinálunk, ..., végül a rendezett sorozatot megkapjuk a 
sorozat két felének (ahol a felső fele lehet hogy kisebb, mint 
az alsó) az összefésüléséből. Így N adat esetén összesen kb. 
3:N :XLOG(N) összehasonlítást kell csinálnunk, tehát a prog- 
ram bizonyos értelemben a lehető leggyorsabb lesz, ugyanis 
N XLOG(N) összehasonlításra mindig szükség van, ahogyan 
azt Török Turul is írja a Sorvezetőben. 

12 helyesen megfejtőnk között a nyereményeket a BIT-LET 
Karácsonyon, dec. 12-én du. 4 órakor sorsoljuk ki. 

A MEGFEJTŐK: Hernyik András, Szentes; Kajári Gábor, 
Cegléd; dr. Kecskeméti László, Nagykőrös; Makula Tibor, 
Orosháza; ifj. Nagy Béla, Esztergom; Nagy Béla, Gyula; 
Pakai Tibor, Szolnok; Szalkai István, Devecser; Szilvási 
Margit, Mezőkövesd; Timkó Attila, Budapest; Urbán Péter, 
Budapest; Vindics István, Mecseknádasd. 

Megjegyezzük, hogy Pakai Tiboron kívül mindenki 2XN ( 4 

néhány) memóriát használt, egyedül ő tudta a feladatot 
1.56N (-3- néhány) memóriával megoldani. 

Mi Szilvási Margit programját közöljük, mely Com- 
modore 64-re íródott, de C 16-on is, sőt kisebb változtatások- 
kal bármilyen gépen futtatható. A program még kicsit gyor- 
sítható, ha az A és B tömbök helyett egy A(N,1) tömböt 
használunk, s egyszer a nulladik szintről fésülünk össze az 
elsőre, majd az elsőről a nulladikra stb. A program az elején 
a párokat nem az összefésülő eljárás segítségével rendezi, 
mert így gyorsabb. A program sebessége 10 szám esetén 
1.6 másodperc, 100 szám esetén 29.5 másodperc, 1000 szám 
esetén 7 perc 16 másodperc. 


19. REMELEM RE RE E JEE JE JE 96969 
29 REME RENDEZO há 

BO. REMMÁÁER ETELE TEJE ETELE JAA 96 

40 G60TO170 

59 REMtitttt /FESULES  ttttátátát 

69 IsMi:J:zM2:Ks1 

70 IF A(I)D)DJA(J) THEN B(K)sA(J):JsJti:BOTO 99 
89 B(K)-A(I):I5It1 

99 KsKt1i:IF ICM14$NIi AND J(M2tNZ THEN 78 


1099 IF IDSM1itNI AND JD:-M2tNZ THEN 130 

119 IF IJSMií4$Ni THEN L5M2-tN2-J:FOR X5g TO L:B(KtX)s 
A(J4X):NEXT X:GOTO 130 

129 L5M1-4N1-I:FOR X5G TO L:B(K$tX)5A(I4X):NEXT X 
FOR IzMi TO M1tN1ItN2-1 

A(I)5B(I-M1i1t1) 

NEXT I 

RETURN 

INPUT N 

9 DIM A(N-41) ,B(Nt1) 

199 FOR Isi TO N:A(I)SINT(RND(1) 1988) :PRINT A(I) ,: 
NEXT I:PRINT 

299 AA-TI:IF N5i THEN 3809 

219 FOR Is1 TO INT(N/2)x2 STEP 2 


229 IF A(I)DA(I41) THEN B5A(I)TA(IDSA(IH1):A(It1)5B 
239 NEXT I 

2409 LL51:I52 

259 IF NCzI THEN 270 

269 LLELLtH1:I-28I:GOTO 259 

2709 L6-1 

289 FOR KK-1 TO LL-1 

299 Lú-2£LO 

389 FOR T51 TO N STEP 24LO 

319 M1-T:Ni-LO 

329 M2-T-4LOg:N2- (L9--N-M2--1-ABS (L9-N-(4M2—1) ) /2 
339 IF N2(-ü THEN 3508 

349 GOSUB 59 

359 NEXT T 

369 NEXT KK 

3790 AA-TI-AA 

389 FOR Isi TO N:PRINT A(I) ,:NEXT I:PRINT 
399 PRINT AA/60;" SEC" 

409 END 


SZÁMÍTÁSTECHNIKAI MELLÉKLET-1987 NOVÉMBER 


Következő számun 


december 15-én jelenik meg, de addig is 
minden héten az Ötletben számítástechnika 


ATARI NYERŐ 


A pályázaton több mint 200-an indultak, 139-en küldtek mindhárom feladatra , nem teljesen rossz" 
megoldást. Mivel a 1393 megoldást részletesen végigbogarászni reménytelenül nagy feladatot  — . 
jelentene, ezért a sorsolás, mely a BIT-LET Karácsonyon, dec. 12-én du. 4 őrakor lesz, úgy zajlik le, 
hogy a 139 pályázatból kihúzunk egyet, s a helyszínen végezzük el a részletes kiértékelést, 

ha a 3 megoldás valamelyike rossz, akkor újra húzunk. 


LENN 
CENTRUM 


A 2. FELADAT 
MEGOLDÁSA 


A feladat az volt, hogy egy olyan prog- 
ramot írjunk, mely az ismertetett egy- 
személyes játékot helyesen végigjátssza. 
Az itt közölt program az ENTERPRISE 
1S-BASIC-jében íródott. 
A program rövid leírása: 
Ha játsszuk a játékot egy darabig, ha- 
mar megfigyelhetjük, hogy a feladat 
teljesítése két részből áll: 
e először azt kell elérnünk, hogy a vilá- 
gos és sötét korongok váltakozva le- 
gyenek, s a bal szélen már világos korong 
legyen (vagy a bal szélen egy üres hely, 
s mellette egy világos korong), 
06 innen pedig az eddig csináltaknak 
jdnem pontosan a fordítottjával elér- 
hetjük, hogy minden a helyére kerül; 
A program ezen az elven működik, 
s még használja a következő észrevé- 
telt: 
Tegyük fel, hogy az először megkívánt 
helyzetet egy eggyel kisebb méretű fel- 
adatra már megoldottuk (a belső N-1 
sötét és a belső N-1 világos korong már 
megfelelően váltakozva van). Innen az 
N méretű feladatra megkívánt helyzetet 


már egy egyszerű lépéssel és egy egy- 
szerű, ciklussal megszervezhető ugrás- 
sorozattal elérhetjük — csak N páros 
vagy páratlan voltától függően kell egy 
Picit mást csinálni. 


"gy 


A játék tábláját a T tömbben tároljuk 
Az UGRAS nevű eljárás a POZ helyen 
lévő koronggal lép vagy ugrik a meg- 
felelő irányba (az irányt a POZ he- 
lyen lévő korong színe határozza meg), 
annak megfelelően, hogy hol van az 
üres hely. (Az algoritmus gondoskodik 
róla, hogy az illető koronggal lehessen 
lépni, így itt vizsgálat nem kell.) A KIIR 
eljárás kiírja a tábla pillanatnyi helyze- 
tét, ezt minden lépés után meghívjuk. 
A BEFELE rekurzív eljárás gondoskodik 
az előbb említett első fázisról, M-—1 
esetén (1 világos, 1 sötét korong) a 
feladat egyszerű, egyébként először 
meg kell oldani M-1-re, majd a szabad 
szélsővel (melynek helye a középtől 
M mezőre van M párosságától függő 
irányban) kell egyet lépni, s ezután a 
másik szín bábuival ugrani egyet-egyet. 
A KIFELE eljárás hasonlít a BEFELE- 
hez, csak ez a második fázis végrehaj- 
tásáról gondoskodik. 


Ezután a főprogram roppant egyszerű 
(s strukturált programoknál ez így van 
rendjén), csak a kezdőállapotot kell 
létrehozni és kiírni, majd meghívni egy- 
más után a BEFELE és KIFELE eljáráso- 
kat. 

Aki most találkozik először rekurzív el- 
járáshívással, annak érdemes a program 
futását pl. N—4-re végigkövetni. 


zak Szerkesztőségünk címe: ÖTLET Budapest 1986. Szerkesztő: Angyalosi László. Művészeti szerkesztő: Pribelszky Pál 
fi Tördelő: Domokos Imre. Hirrovat: Csányi György. Gépnyerő: Király Zoltán. Posta: Halász Péter. 
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TERPRISE 


19 INFUT N 
29 DIM T(Z2$N-4-2) 

34 LET S$-"4 a" 

99 1 

DEF UGRAS(POZ 
LETT FL 


) 
02) 


a 
(FOZ4FIG)-Aa 
ka "FUGEFIGYSFIG 
CALL. KIIR 
END DEF 


DEF KIIR 
FOR J-1 TO 28NFI1 
PRINT S$(T(J)-HZST(J)-H2); 
NEXT J 
PRINT 
END DEF 
1 


DEF BEFELEK(M) 
IF M-1 THEN 
CALL UGRAS(N) 
CALL. UGRAS (N4-2) 
ELSE 
CALL BEFELE(M-1) 
LET PAR-ZK(MCIZKINT(M/2)) 41 
LET KP-NtIHMEPAR 
CALL UGRAS(KP) 
FOR I-1 TOM 
CALL UGRAS(KP-IHZEPAR) 
NEXT I 
END IF 
END DEF 
ni 


DEF KIFELE(M) 
IF M-1 THEN 
CALL UGRAS(N--1) 
ELSE 
LET PAR5Z2t (M—-24INT(M/2))-41 
LET KPzN-41-(M—1) PAR 
CALL UGRAS (KP) 


379 FOR Iz1 TO M-1 

sag CALL UGRAS(KP-IEZHPAR) 
398 NEXT I 

600 CALL KIFELE(M-1) 

619 END IF 

620 


END DEF 
fi 


FOR Isi TÖN 

LET F(I)si 

LET T(I-4N-41)sz—1 
NEXTET 
LET T(Nt1):8 
CAL KIIR 
CALL. BEFELE(N) 
CALL KIFELE(N) 
END 


A feladat szövegfeldolgozás lesz. Tegyük fel, hogy egy hosszú ma- 
gyar nyelvű szövegben meg akarjuk számolni, hogy az egyes kötő- 
szavakból (és, s, de, hogy, vagy, azonban, ezért, így, meg, sőt) hány 


db van. 


A programot az ENTERPRISE 1S-BASIC-jében kell megírni, struk- 
turáltan, olvashatóan. A szöveget egy string-tömbben tároljuk, mely- 
nek elemei 254 karakter hosszúak (ugyanis 254 egy string maximális 
hossza), s egy-egy ilyen string szavain ne ciklusszervezéssel, hanem 
rekurzív eljáráshívással (példát a múltkori számunkban, s a mostani 
megoldásunkban láthatunk rá) menjünk végig. Egy szó átnyúlhat 
egyik stringből a következőbe! Vigyázzunk, egy szó végét nem csak 
space, hanem vessző, pontosvessző, kettőspont, pont, felkiáltójel 
vagy kérdőjel is jelezheti. Használjuk az előző számunkban ismertetett 
POS függvényt! A végén program írja ki, hogy a fent említett kötő- 
szavak közül melyikből hány db van. 


A programot papíron kérjük beküldeni 


leírással együtt. 


ismertető 


e 


a működést 


